(pages-copy-header-and-position): Add help-echo to mouse-highlighted text.

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 461d71d06d9b92208f83eb6f1a9ddeb5f3fdf973..c5f50fe28407de5f65cfd46eef434ec78f5dedb2 100644 (file)
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -680,8 +680,9 @@ Used by `pages-directory' function."
         ;; insert page header
        (setq inserted-at (point))
        (insert-buffer-substring target-buffer start end)
-       (put-text-property inserted-at (point) 
-                          'mouse-face 'highlight)
+       (add-text-properties inserted-at (point) 
+                            '(mouse-face highlight
+                              help-echo "mouse-2: go to this page"))
        (put-text-property inserted-at (point) 'rear-nonsticky 'highlight))
       
       (if count-lines-p